home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 003 / _mask / !MaskUtils / !Animator / Animator (.txt) < prev   
RISC OS BBC BASIC V Source  |  1993-08-19  |  1KB  |  62 lines
  1.  >animator
  2.  Michel Grimminck 1993
  3.  provided with !Mask
  4.  sprites must be named 000, 001, 002, ....00n ...0mn ...999
  5. "Enter a sprite animation file/directory"
  6.  "OS_File",5,F$ 
  7.  U%,,F%,,L%:F%=(F% >>8)
  8.  U%=0 
  9. "File doesnot exists":
  10.  U%=1 
  11. *    
  12.  F%<>&FF9 
  13. "not a spritefile":
  14. Q    
  15. "if ro3flag=-1 then ChangeDynamicArea -Spritesize "+
  16. (L%/1024+32))+"K"
  17. "Sload "+F$
  18.         
  19.  U%=2 
  20. @    
  21. "if ro3flag=-1 then ChangeDynamicArea -Spritesize 256K"
  22.         
  23. "hit keys 1 to 9 to change speed,"'"P to pause, SPACE to end"
  24.  N=!&1400004 -1:NR=0:D=-1:W=4
  25.  U%=2 
  26.     N=0
  27.         
  28.     S$=
  29. ("0000"+
  30. (N)),3)
  31. >    
  32.  "OS_File",5,F$+"."+S$ 
  33.  K%,,F%,,L%:F%=(F% >>8)
  34.     N+=1
  35.  K%<>1
  36.     N-=2
  37.         
  38.     S$=
  39. ("0000"+
  40. (NR)),3)
  41. "$    
  42.  U%=2 
  43. "Sload "+F$+"."+S$
  44. "Schoose "+S$
  45.  &ED,0,0
  46.  U%=2 
  47. "Snew"
  48.  NR=0 
  49.  D=-D
  50.  NR=N 
  51.  D=-D
  52.     NR+=D
  53.  Q%=1
  54. *#    A$=
  55. (A$)>0 
  56. +     
  57.  A$="P" 
  58.  A$="p" 
  59.  A$=" " 
  60. "Snew"
  61. "if ro3flag=-1 then ChangeDynamicArea -Spritesize 0"
  62.